home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / polynomial.scrx < prev    next >
Text File  |  1997-11-01  |  900b  |  36 lines
  1. /*        SciCalc Scientific Calculator
  2.         by Brian Savage copyright 1997
  3.  
  4.         Arexx script to solve a 5th order polynomial of the form
  5.         a+b*x+c*x**2+d*x**3+e*x**4+f*x**5=0. Can be used for lower
  6.         order polynomials as well (just set higher order coefficients
  7.         to zero).
  8.  
  9. */
  10.  
  11. options results
  12.  
  13. getval                    /*   x -> from display                     */
  14. parse var result x
  15.  
  16. getreg 1                /*   a -> from register #1                 */
  17. parse var result a
  18.  
  19. getreg 2                /*   b -> from register #2                 */
  20. parse var result b
  21.  
  22. getreg 3                /*   c -> from register #3                 */
  23. parse var result c
  24.  
  25. getreg 4                /*   d -> from register #4                 */
  26. parse var result d
  27.  
  28. getreg 5                /*   e -> from register #5                 */
  29. parse var result e
  30.  
  31. getreg 6                /*   f -> from register #6                 */
  32. parse var result f
  33.  
  34.  
  35. putval a+b*x+c*x**2+d*x**3+e*x**4+f*x**5
  36.